home *** CD-ROM | disk | FTP | other *** search
/ Java Programmer's Toolkit / Java Programmer's Toolkit.iso / gs3.53 / ps2ascii.ps < prev    next >
Text File  |  1996-01-10  |  21KB  |  640 lines
  1. %    Copyright (C) 1991, 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Extract the ASCII text from a PostScript file.  Nothing is displayed.
  19. % Instead, ASCII information is written to stdout.  The idea is similar to
  20. % Glenn Reid's `distillery', only a lot more simple-minded, and less robust.
  21.  
  22. % If SIMPLE is defined, just the text is written, with a guess at line
  23. % breaks and word spacing.  If SIMPLE is not defined, lines are written
  24. % to stdout as follows:
  25. %
  26. %    F <height> <width> (<fontname>)
  27. %        Indicate the font height and the width of a space.
  28. %
  29. %    P
  30. %        Indicate the end of the page.
  31. % 
  32. %    S <x> <y> (<string>) <width>
  33. %        Display a string.
  34. %
  35. % <width> and <height> are integer dimensions in units of 1/720".
  36. % <x> and <y> are integer coordinates, in units of 1/720", with the origin
  37. %   at the lower left.
  38. % <string> and <fontname> are strings represented with the standard
  39. %   PostScript escape conventions.
  40.  
  41. % If COMPLEX is defined, the following additional types of lines are
  42. % written to stdout.
  43. %
  44. %    C <r> <g> <b>
  45. %        Indicate the current color.
  46. %
  47. %    I <x> <y> <width> <height>
  48. %        Note the presence of an image.
  49. %
  50. %    R <x> <y> <width> <height>
  51. %        Fill a rectangle.
  52. %
  53. % <r>, <g>, and <b> are RGB values expressed as integers between 0 and 1000.
  54. %
  55. % Note that future versions of this program (in COMPLEX mode) may add
  56. %   other output elements, so programs parsing the output should be
  57. %   prepared to ignore elements that they do not recognize.
  58.  
  59. % Note that this code will only work in all cases if systemdict is writable
  60. % and if `binding' the definitions of operators defined as procedures
  61. % is deferred.  For this reason, it is normally invoked with
  62. %    gs -q -dNODISPLAY -dNOBIND -dWRITESYSTEMDICT ps2ascii.ps
  63.  
  64. % Thanks to J Greely <jgreely@cis.ohio-state.edu> for improvements
  65. % to this code, and to Jerry Whelan <jerryw@abode.ccd.bnl.gov> for
  66. % motivating other improvements.
  67.  
  68. /QUIET true def
  69. systemdict wcheck { systemdict } { userdict } ifelse begin
  70. /.max where { pop } { /.max { 2 copy lt { exch } if pop } bind def } ifelse
  71. /COMPLEX dup where { pop true } { false } ifelse def
  72. /SIMPLE dup where { pop true } { false } ifelse def
  73. /setglobal where
  74.  { pop currentglobal /setglobal load true setglobal }
  75.  { { } }
  76. ifelse
  77.  
  78. % Define a way to store and retrieve integers that survives save/restore.
  79. /.i.string0 (0               ) def
  80. /.i.string .i.string0 length string def
  81. /.iget { cvi } bind def
  82. /.iput { exch //.i.string exch copy cvs pop } bind def
  83. /.inew { //.i.string0 dup length string copy } bind def
  84.  
  85. % We only want to redefine operators if they are defined already.
  86.  
  87. /codef { 1 index where { pop def } { pop pop } ifelse } def
  88.  
  89. % Redefine the end-of-page operators.
  90.  
  91. /erasepage { } codef
  92. /copypage { SIMPLE { (\014) } { (P\n) } ifelse //print } codef
  93. /showpage { copypage erasepage initgraphics } codef
  94.  
  95. % Redefine the fill operators to detect rectangles.
  96.  
  97. /.orderrect    % <llx> <lly> <urx> <ury> .orderrect <llx> <lly> <w> <h>
  98.  {    % Ensure llx <= urx, lly <= ury.
  99.    1 index 4 index lt { 4 2 roll } if
  100.    dup 3 index lt { 3 1 roll exch } if
  101.    exch 3 index sub exch 2 index sub
  102.  } odef
  103. /.fillcomplex
  104.  {    % Do a first pass to see if the path is all rectangles in
  105.     % the output coordinate system.  We don't worry about overlapping
  106.     % rectangles that might be partially not filled.
  107.     % Stack: mark llx0 lly0 urx0 ury0 ... true mark x0 y0 ...
  108.    mark true mark
  109.     % Add a final moveto so we pick up any trailing unclosed subpath.
  110.    0 0 itransform moveto
  111.     { .coord counttomark 2 gt
  112.        { counttomark 4 gt { .fillcheckrect } { 4 2 roll pop pop }  ifelse }
  113.       if
  114.     }
  115.     { .coord }
  116.     { cleartomark not mark exit }
  117.     { counttomark -2 roll 2 copy counttomark 2 roll .fillcheckrect }
  118.    pathforall cleartomark
  119.     { .showcolor counttomark 4 idiv
  120.        { counttomark -4 roll .orderrect
  121.      (R ) //print .show==4
  122.        }
  123.       repeat pop
  124.     }
  125.     { cleartomark
  126.     }
  127.    ifelse
  128.  } odef
  129. /.fillcheckrect
  130.  {    % Check whether the current subpath is a rectangle.
  131.     % If it is, add it to the list of rectangles being accumulated;
  132.     % if not exit the .fillcomplex loop.
  133.     % The subpath has not been closed.
  134.     % Stack: as in .fillcomplex, + newx newy
  135.    counttomark 10 eq { 9 index 9 index 4 2 roll } if
  136.    counttomark 12 ne { cleartomark not mark exit } if
  137.    12 2 roll
  138.     % Check for the two possible forms of rectangles:
  139.     %    x0 y0  x0 y1  x1 y1  x1 y0  x0 y0
  140.     %    x0 y0  x1 y0  x1 y1  x0 y1  x0 y0
  141.    9 index 2 index eq 9 index 2 index eq and
  142.    10 index 9 index eq
  143.     {    % Check for first form.
  144.       7 index 6 index eq and 6 index 5 index eq and 3 index 2 index eq and
  145.     }
  146.     {    % Check for second form.
  147.       9 index 8 index eq and
  148.       8 index 7 index eq and 5 index 4 index eq and 4 index 3 index eq and
  149.     }
  150.    ifelse not { cleartomark not mark exit } if
  151.     % We have a rectangle.
  152.    pop pop pop pop 4 2 roll pop pop 8 4 roll
  153.  } odef
  154. /eofill { COMPLEX { .fillcomplex } if newpath } codef
  155. /fill { COMPLEX { .fillcomplex } if newpath } codef
  156. /rectfill { gsave newpath .rectappend fill grestore } codef
  157. /ueofill { gsave newpath uappend eofill grestore } codef
  158. /ufill { gsave newpath uappend fill grestore } codef
  159.  
  160. % Redefine the stroke operators to detect rectangles.
  161.  
  162. /rectstroke
  163.  { gsave newpath
  164.    dup type dup /arraytype eq exch /packedarraytype eq or
  165.     { dup length 6 eq { exch .rectappend concat } { .rectappend } ifelse }
  166.     { .rectappend }
  167.    ifelse stroke grestore
  168.  } codef
  169. /.strokeline    % <fromx> <fromy> <tox> <toy> .strokeline <tox> <toy>
  170.         % Note: fromx and fromy are in output coordinates;
  171.         % tox and toy are in user coordinates.
  172.  { .coord 2 copy 6 2 roll .orderrect
  173.     % Add in the line width.  Assume square or round caps.
  174.    currentlinewidth 2 div dup .dcoord add abs 1 max 5 1 roll
  175.    4 index add 4 1 roll 4 index add 4 1 roll
  176.    4 index sub 4 1 roll 5 -1 roll sub 4 1 roll
  177.    (R ) //print .show==4
  178.  } odef
  179. /.strokecomplex
  180.  {    % Do a first pass to see if the path is all horizontal and vertical
  181.     % lines in the output coordinate system.
  182.     % Stack: true mark origx origy curx cury
  183.    true mark null null null null
  184.     { .coord 6 2 roll pop pop pop pop 2 copy }
  185.     { .coord 1 index 4 index eq 1 index 4 index eq or
  186.        { 4 2 roll pop pop }
  187.        { cleartomark not mark exit }
  188.       ifelse
  189.     }
  190.     { cleartomark not mark exit }
  191.     { counttomark -2 roll 2 copy counttomark 2 roll
  192.       1 index 4 index eq 1 index 4 index eq or
  193.        { pop pop 2 copy }
  194.        { cleartomark not mark exit }
  195.       ifelse
  196.     }
  197.    pathforall cleartomark
  198.    0 currentlinewidth .dcoord 0 eq exch 0 eq or and
  199.     % Do the second pass to write out the rectangles.
  200.     % Stack: origx origy curx cury
  201.     { .showcolor null null null null
  202.        { 6 2 roll pop pop pop pop 2 copy .coord }
  203.        { .strokeline }
  204.        { }
  205.        { 3 index 3 index .strokeline }
  206.       pathforall pop pop pop pop
  207.     }
  208.    if
  209.  } odef
  210. /stroke { COMPLEX { .strokecomplex } if newpath } codef
  211. /ustroke
  212.  { gsave newpath
  213.    dup length 6 eq { exch uappend concat } { uappend } ifelse
  214.    stroke grestore
  215.  } codef
  216.  
  217. % The image operators must read the input and note the dimensions.
  218. % Eventually we should redefine these to detect 1-bit-high all-black images,
  219. % since this is how dvips does underlining (!).
  220.  
  221. /.noteimagerect        % <width> <height> <matrix> .noteimagerect -
  222.  { COMPLEX
  223.     { gsave setmatrix itransform 0 0 itransform
  224.       grestore .coord 4 2 roll .coord .orderrect
  225.       (I ) //print .show==4
  226.     }
  227.     { pop pop pop
  228.     }
  229.    ifelse
  230.  } odef
  231. /colorimage where
  232.  { pop /colorimage
  233.     { 1 index
  234.        { dup 6 add index 1 index 6 add index 2 index 5 add index }
  235.        { 6 index 6 index 5 index }
  236.       ifelse .noteimagerect gsave nulldevice //colorimage grestore
  237.     } codef
  238.  } if
  239. /.noteimage        % Arguments as for image[mask]
  240.  { dup type /dicttype eq
  241.     { dup /Width get 1 index /Height get 2 index /ImageMatrix get }
  242.     { 4 index 4 index 3 index }
  243.    ifelse .noteimagerect
  244.  } odef
  245. /image { .noteimage gsave nulldevice //image grestore } codef
  246. /imagemask { .noteimage gsave nulldevice //imagemask grestore } codef
  247.  
  248. % Output the current color if necessary.
  249. /.color.r .inew def
  250.   .color.r -1 .iput        % make sure we write the color at the beginning
  251. /.color.g .inew def
  252. /.color.b .inew def
  253. /.showcolor
  254.  { COMPLEX
  255.     { currentrgbcolor
  256.       1000 mul round cvi
  257.       3 1 roll 1000 mul round cvi
  258.       exch 1000 mul round cvi
  259.         % Stack: b g r
  260.       dup //.color.r .iget eq
  261.       2 index //.color.g .iget eq and
  262.       3 index //.color.b .iget eq and
  263.        { pop pop pop
  264.        }
  265.        { (C ) //print
  266.      dup //.color.r exch .iput .show==only
  267.          ( ) //print dup //.color.g exch .iput .show==only
  268.          ( ) //print dup //.color.b exch .iput .show==only
  269.      (\n) //print
  270.        }
  271.       ifelse
  272.     }
  273.    if
  274.  } bind def
  275.  
  276. % Redefine `show'.
  277.  
  278. % Set things up so our output will be in tenths of a point, with origin at
  279. % lower left.  This isolates us from the peculiarities of individual devices.
  280.  
  281. /.show.ident.matrix matrix def
  282. /.show.ident
  283. % { //.show.ident.matrix defaultmatrix
  284. %        % Assume the original transformation is well-behaved.
  285. %   0.1 0 2 index dtransform abs exch abs .max /.show.scale exch def
  286. %   0.1 dup 3 -1 roll scale
  287.  { gsave initmatrix
  288.         % Assume the original transformation is well-behaved.
  289.    0.1 0 dtransform abs exch abs .max /.show.scale exch def
  290.    0.1 dup scale .show.ident.matrix currentmatrix
  291.    grestore
  292.  } bind def
  293. /.coord
  294.  { transform .show.ident itransform
  295.    exch round cvi exch round cvi
  296.  } odef
  297. /.dcoord
  298.  {        % Transforming distances is trickier, because
  299.         % the coordinate system might be rotated.
  300.    .show.ident pop
  301.    exch 0 dtransform
  302.      dup mul exch dup mul add sqrt
  303.      .show.scale div round cvi
  304.    exch 0 exch dtransform
  305.      dup mul exch dup mul add sqrt
  306.      .show.scale div round cvi
  307.  } odef
  308.  
  309. % Remember the current X, Y, and height.
  310. /.show.x .inew def
  311. /.show.y .inew def
  312. /.show.height .inew def
  313. % Remember the last character of the previous string; if it was a
  314. % hyphen preceded by a letter, we didn't output the hyphen.
  315. /.show.last (\000) def
  316. % Remember the current font.
  317. /.font.name 130 string def
  318. /.font.name.length .inew def
  319. /.font.height .inew def
  320. /.font.width .inew def
  321.  
  322. % We have to redirect stdout somehow....
  323. /.show.stdout { (%stdout) (w) file } bind def
  324.  
  325. % Make sure writing will work even if a program uses =string.
  326. /.show.string =string length string def
  327. /.show.=string =string length string def
  328. /.show==only
  329.  { //=string //.show.=string copy pop
  330.    dup type /stringtype eq
  331.     { dup length //.show.string length le
  332.        { dup rcheck { //.show.string copy } if
  333.        } if
  334.     } if
  335.    .show.stdout exch write==only
  336.    //.show.=string //=string copy pop
  337.  } odef
  338. /.show==4
  339.  { 4 -1 roll .show==only ( ) //print
  340.    3 -1 roll .show==only ( ) //print
  341.    exch .show==only ( ) //print
  342.    .show==only (\n) //print
  343.  } odef
  344.  
  345. /.showwidth    % Same as stringwidth, but disable COMPLEX so that
  346.         % we don't try to detect rectangles during BuildChar.
  347.  { COMPLEX
  348.     { /COMPLEX false def stringwidth /COMPLEX true def }
  349.     { stringwidth }
  350.    ifelse
  351.  } odef
  352. /.showfont    % <string> .showfont <string>
  353.  { gsave
  354.     % Try getting the height and width of the font from the FontBBox.
  355.      currentfont /FontBBox .knownget not { {0 0 0 0} } if
  356.      aload pop exch 4 -1 roll sub 3 1 roll exch sub
  357.      2 copy .max 0 ne
  358.       { currentfont /FontMatrix get dtransform
  359.       }
  360.       {    pop pop
  361.     % Fonts produced by dvips, among other applications, have
  362.     % BuildChar procedures that bomb out when given unexpected
  363.     % characters, and there is no way to determine whether a given
  364.     % character will do this.  So for Type 1 fonts, we measure a
  365.     % typical character ('X'); for others, we punt.
  366.     currentfont /FontType get 1 eq
  367.      { (X) .showwidth pop dup 1.3 mul
  368.      }
  369.      {    % No safe way to get the character size.  Punt.
  370.        0 0
  371.      }
  372.     ifelse
  373.       }
  374.      ifelse .dcoord exch
  375.      currentfont /FontName .knownget not { () } if
  376.      dup type /stringtype ne { //.show.string cvs } if
  377.    grestore
  378.     % Stack: height width fontname
  379.    SIMPLE
  380.     { pop pop //.show.height exch .iput }
  381.     { 2 index //.font.height .iget eq
  382.       2 index //.font.width .iget eq and
  383.       1 index //.font.name 0 //.font.name.length .iget getinterval eq and
  384.        { pop pop pop
  385.        }
  386.        { (F ) //print
  387.      3 -1 roll dup //.font.height exch .iput .show==only ( ) //print
  388.          exch dup //.font.width exch .iput .show==only ( ) //print
  389.      dup length //.font.name.length exch .iput
  390.          //.font.name cvs .show==only (\n) //print
  391.        }
  392.       ifelse
  393.     }
  394.    ifelse
  395.  } odef
  396.  
  397. % Define the letters -- characters which, if they occur followed by a hyphen
  398. % at the end of a line, cause the hyphen and line break to be ignored.
  399. /.letter.chars 100 dict def
  400. mark
  401.   65 1 90 { dup 32 add } for
  402. counttomark { StandardEncoding exch get .letter.chars exch dup put } repeat
  403. pop
  404.  
  405. % Define a set of characters which, if they occur at the start of a line,
  406. % are taken as indicating a paragraph break.
  407. /.break.chars 50 dict def
  408. mark
  409.   /bullet /dagger /daggerdbl /periodcentered /section
  410. counttomark { .break.chars exch dup put } repeat
  411. pop
  412.  
  413. % Define character translation to ASCII.
  414. % We have to do this for the entire character set.
  415. /.char.map 500 dict def
  416. /.chars.def { counttomark 2 idiv { .char.map 3 1 roll put } repeat pop } def
  417.     % Encode the printable ASCII characters.
  418. mark 32 1 126
  419.  { 1 string dup 0 4 -1 roll put
  420.    dup 0 get StandardEncoding exch get exch
  421.  }
  422. for .chars.def
  423.     % Encode accents.
  424. mark
  425.   /acute (') /caron (^) /cedilla (,) /circumflex (^)
  426.   /dieresis (") /grave (`) /ring (*) /tilde (~)
  427. .chars.def
  428.     % Encode the ISO accented characters.
  429. mark 192 1 255
  430.  { ISOLatin1Encoding exch get =string cvs
  431.    dup 0 1 getinterval 1 index dup length 1 sub 1 exch getinterval
  432.    .char.map 2 index known .char.map 2 index known and
  433.     { .char.map 3 -1 roll get .char.map 3 -1 roll get concatstrings
  434.       .char.map 3 1 roll put
  435.     }
  436.     { pop pop pop
  437.     }
  438.    ifelse
  439.  }
  440. for .chars.def
  441.     % Encode the remaining standard and ISO alphabetic characters.
  442. mark
  443.   /AE (AE) /Eth (DH) /OE (OE) /Thorn (Th)
  444.   /ae (ae) /eth (dh)
  445.   /ffi (ffi) /ffl (ffl) /fi (fi) /fl (fl)
  446.   /germandbls (ss) /oe (oe) /thorn (th)
  447. .chars.def
  448.     % Encode the other standard and ISO characters.
  449. mark
  450.   /brokenbar (|) /bullet (*) /copyright ((C)) /currency (#)
  451.   /dagger (#) /daggerdbl (##) /degree (o) /divide (/) /dotaccent (.)
  452.   /dotlessi (i)
  453.   /ellipsis (...) /emdash (--) /endash (-) /exclamdown (!)
  454.   /florin (f) /fraction (/)
  455.   /guillemotleft (<<) /guillemotright (>>)
  456.   /guilsingleft (<) /guilsingright (>) /hungarumlaut ("") /logicalnot (~)
  457.   /macron (_) /minus (-) /mu (u) /multiply (*)
  458.   /ogonek (,) /onehalf (1/2) /onequarter (1/4) /onesuperior (1)
  459.   /ordfeminine (-a) /ordmasculine (-o)
  460.   /paragraph (||) /periodcentered (*) /perthousand (o/oo) /plusminus (+-)
  461.   /questiondown (?) /quotedblbase (") /quotedblleft (") /quotedblright (")
  462.   /quotesinglbase (,) /quotesingle (') /registered ((R))
  463.   /section ($) /sterling (#)
  464.   /threequarters (3/4) /threesuperior (3) /trademark ((TM)) /twosuperior (2)
  465.   /yen (Y)
  466. .chars.def
  467.     % Encode a few common Symbol characters.
  468. mark
  469.   /asteriskmath (*) /copyrightsans ((C)) /copyrightserif ((C))
  470.   /greaterequal (>=) /lessequal (<=) /registersans ((R)) /registerserif ((R))
  471.   /trademarksans ((TM)) /trademarkserif ((TM))
  472. .chars.def
  473.  
  474. % Write out a string.  If it ends in a letter and a hyphen,
  475. % don't write the hyphen, and set .show.last to a hyphen;
  476. % otherwise, set .show.last to the character (or \000 if it was a hyphen).
  477. /.show.write    % <string> .show.write -
  478.  { dup length 1 ge
  479.     { dup dup length 1 sub get
  480.       dup 45 eq        % hyphen
  481.        { 1 index length 1 gt
  482.           { 1 index dup length 2 sub get }
  483.       { //.show.last 0 get }
  484.      ifelse
  485.      currentfont /Encoding get exch get
  486.      //.letter.chars exch known
  487.       {    % Remove the hyphen
  488.         exch dup length 1 sub 0 exch getinterval exch
  489.       }
  490.       { pop 0
  491.       }
  492.      ifelse
  493.        }
  494.       if
  495.       //.show.last 0 3 -1 roll put
  496.     }
  497.    if
  498.     { dup currentfont /Encoding get exch get
  499.         % Stack: charcode charname
  500.       dup //.char.map exch .knownget
  501.        { .show.stdout exch writestring pop pop
  502.        }
  503.        { currentfont /Encoding get dup StandardEncoding eq
  504.      exch ISOLatin1Encoding eq or
  505.       {    % Untranslated character in standard encoding
  506.         pop .show.stdout exch write
  507.       }
  508.       {    % Character in non-standard encoding, substitute
  509.         pop pop .show.stdout (*) writestring
  510.       }
  511.      ifelse
  512.        }
  513.       ifelse
  514.     }
  515.    forall
  516.  } odef
  517. /.showstring1
  518.  { currentpoint .coord
  519.    3 -1 roll dup .showwidth 1 index 0 rmoveto
  520.    .dcoord pop
  521.     % Stack: x y string width
  522.    SIMPLE
  523.     { 2 index //.show.y .iget ne
  524.        {    % Try to figure out whether we have a line break
  525.         % or a paragraph break.
  526.      2 index //.show.y .iget sub abs
  527.      //.show.height .iget 1.3 mul ge
  528.      2 index length 0 gt
  529.       { 2 index 0 get currentfont /Encoding get exch get
  530.         //.break.chars exch known { pop true } if
  531.       }
  532.      if
  533.       { (\n\n)    % Paragraph
  534.       }
  535.       { ( )        % Line
  536.       }
  537.      ifelse //print
  538.      //.show.y 3 index .iput
  539.          //.show.x 4 index .iput
  540.        }
  541.        {    % If the word processor split a hyphenated word within
  542.         % the same line, put out the hyphen now.
  543.      //.show.last 0 get 45 eq { (-) //print } if
  544.        }
  545.       ifelse
  546.       3 index //.show.x .iget 10 add gt
  547.        { ( ) //print
  548.        }
  549.       if
  550.       4 1 roll .show.write pop add //.show.x exch .iput
  551.     }
  552.     { (S ) //print .show==4
  553.     }
  554.    ifelse
  555.  } odef
  556. /.showstring
  557.  { dup () eq { pop } { .showstring1 } ifelse
  558.  } bind def
  559.      
  560. % Redefine all the string display operators.
  561.  
  562. /show
  563.  { .showfont .showcolor .showstring
  564.  } codef
  565.  
  566. % We define all the other operators in terms of .show1.
  567. /.show1.string ( ) def
  568. /.show1 { //.show1.string exch 0 exch put //.show1.string .showstring } odef
  569. /ashow
  570.  { .showfont .showcolor
  571.    { .show1 2 copy rmoveto } forall
  572.    pop pop
  573.  } codef
  574. /awidthshow
  575.  { .showfont .showcolor
  576.     { dup .show1 4 index eq { 4 index 4 index rmoveto } if
  577.       2 copy rmoveto
  578.     }
  579.    forall
  580.    pop pop pop pop pop
  581.  } codef
  582. /widthshow
  583.  { .showfont .showcolor
  584.    //.show1.string 0 4 -1 roll put
  585.     { //.show1.string search not { exit } if
  586.       .showstring .showstring
  587.       2 index 2 index rmoveto
  588.     } loop
  589.    .showstring pop pop
  590.  } codef
  591. /kshow
  592.  { .showfont .showcolor
  593.     %**************** Should construct a closure, in case the procedure
  594.     %**************** affects the o-stack.
  595.     { .show1 dup exec } forall pop
  596.  } codef
  597. % We don't really do the right thing with the Level 2 show operators,
  598. % but we do something semi-reasonable.
  599. /xshow { pop show } codef
  600. /yshow { pop show } codef
  601. /xyshow { pop show } codef
  602. /glyphshow
  603.  { currentfont /Encoding .knownget not { {} } if
  604.    0 1 2 index length 1 sub
  605.     {        % Stack: glyph encoding index
  606.       2 copy get 3 index eq { exch pop exch pop null exit } if
  607.     }
  608.    for null eq { (X) dup 0 4 -1 roll put show } { pop } ifelse
  609.  } codef
  610.  
  611. % Redirect the printing operators.
  612.  
  613. /.stdout (_temp_.out) (w) file def
  614. /.stderr (_temp_.err) (w) file def
  615. %****************
  616. %/print { //.stdout exch writestring } codef
  617. %/=only { //.stdout exch write=only } codef
  618. %/==only { //.stdout exch write==only } codef
  619.  
  620. end
  621.  
  622. % Bind the operators we just defined, and all the others if we didn't
  623. % do it before.  Also reenable 'bind' for future files.
  624.  
  625. .bindoperators
  626. NOBIND currentdict systemdict ne and
  627.  { systemdict begin .bindoperators end }
  628. if
  629. NOBIND
  630.  { /bind /.bind load def }
  631. if
  632.  
  633. % Make systemdict read-only if it wasn't already.
  634.  
  635. systemdict wcheck { systemdict readonly pop } if
  636.  
  637. % Restore the current local/global VM mode.
  638.  
  639. exec
  640.